GPS fixes needs a valid parameter (selectable from list).

diff --git a/win32/gui-2/filter.dfm b/win32/gui-2/filter.dfm
index 6155ca9a7efde2573dbec57d88711aba60ee1416..c7b21a61e0bb448de60ea0297fae4703090473a3 100644 (file)
Binary files a/win32/gui-2/filter.dfm and b/win32/gui-2/filter.dfm differ

diff --git a/win32/gui-2/filter.pas b/win32/gui-2/filter.pas
index dbcdfe31c1f1067b996b23e13ba72f82c0d99478..396e947e59d84142fb39f07a461678db652dba1a 100644 (file)
--- a/win32/gui-2/filter.pas
+++ b/win32/gui-2/filter.pas
@@ -82,13 +82,14 @@ type
     edWayptRadiusLon: TEdit;\r
     cbTrackRangeTimeZone: TCheckBox;\r
     btnHelp: TBitBtn;\r
-    cbTrackFixes: TCheckBox;\r
+    cbGPSfix: TCheckBox;\r
     cbTrackCourse: TCheckBox;\r
     cbTrackSpeed: TCheckBox;\r
     gbTransform: TGroupBox;\r
     cobTransformType: TComboBox;\r
     cbTransform: TCheckBox;\r
     cbTransformDelete: TCheckBox;\r
+    cobGPSfixes: TComboBox;\r
     procedure cbTrackTimeClick(Sender: TObject);\r
     procedure FormCreate(Sender: TObject);\r
     procedure cbTrackTitleClick(Sender: TObject);\r
@@ -107,6 +108,7 @@ type
       Shift: TShiftState);\r
     procedure btnHelpClick(Sender: TObject);\r
     procedure cbTransformClick(Sender: TObject);\r
+    procedure cbGPSfixClick(Sender: TObject);\r
   private\r
     { Private-Deklarationen }\r
     lTrackTimeList: TList;\r
@@ -241,9 +243,10 @@ begin
 \r
   if not(gpsbabel_knows_inifile) then\r
   begin\r
-    cbTrackFixes.Enabled := False;\r
+    cbGPSfix.Enabled := False;\r
     cbTrackCourse.Enabled := False;\r
     cbTrackSpeed.Enabled := False;\r
+    cobGPSfixes.Enabled := False;\r
   end;\r
 \r
   LoadSettingsFromRegistry();\r
@@ -421,8 +424,8 @@ begin
         Result,\r
         FormatDateTime('yyyymmddhhnnss', dt)]);\r
     end;\r
-    if cbTrackFixes.Checked then\r
-      Result := Format('%s,fix', [Result]);\r
+    if cbGPSfix.Checked then\r
+      Result := Format('%s,fix=%s', [Result, cobGPSfixes.Text]);\r
     if cbTrackCourse.Checked then\r
       Result := Format('%s,course', [Result]);\r
     if cbTrackSpeed.Checked then\r
@@ -737,4 +740,9 @@ begin
   cobTransformType.Enabled := cbTransform.Checked;\r
 end;\r
 \r
+procedure TfrmFilter.cbGPSfixClick(Sender: TObject);\r
+begin\r
+  cobGPSfixes.Enabled := cbGPSfix.Checked;\r
+end;\r
+\r
 end.\r